home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Utilities ƒ / MPW Tools ƒ / Simula4.07 / Simula 4.07ƒ / SInterfaces / macProcessMgr.sim < prev    next >
Encoding:
Text File  |  1989-05-01  |  8.7 KB  |  274 lines  |  [TEXT/MPS ]
  1. % ---------------------------------------------------------------------------
  2. %    Class MACProcessMGR
  3. %
  4. % Part of the Lund Software interface to Macintosh Toolbox
  5. % MACProcessMGR is part of the programming interface. 
  6. % Processes are used to capture events that are directed to
  7. % a window. The MACProcessMGR are receiving the events from the
  8. % Mac and distributes them to the concerned window.
  9. % For each Window - create also a MACProcess and hook it to the window
  10. % by calling RegisterProcess.
  11. % 
  12. % 890406/Boris Magnusson
  13. % 890429/Boris Magnusson Made registerd Window selected 
  14. % ---------------------------------------------------------------------------
  15. External class macPoint="::SInterfaces:macPoint";
  16. External class macRect="::SInterfaces:macRect";
  17. External class macEvent="::SInterfaces:macEvent";
  18. External class MacProcess="::SInterfaces:MacProcess";
  19. External class MacWindowMgr="::SInterfaces:MacWindowMgr";
  20. External class MacEventMgr="::SInterfaces:MacEventMgr";
  21. External class macToolConst="::SInterfaces:macToolConst";
  22. External class macUtilities="::SInterfaces:macUtilities";
  23. MacWindowMgr class MacProcessMGR;
  24. begin
  25.     ref(macToolConst) TConst; ! Shared by each Process ;
  26.     ref(macUtilities) Util;   ! also shared by processes ;
  27.     ref(MacEventMgr) EventMgr;
  28.     Boolean terminate;        ! set to true by 'stop' to make 'Run' quit. ;
  29.  
  30. % -- system xxx moved from  toolboxDesk -- used only from processMGR -- 
  31. % -- copied also to macProcessMgr ------
  32. %    PROCEDURE SystemClick(theEvent: EventRecord; theWindow: WindowPtr);
  33.     PROCEDURE SystemClick(theEvent, theWindow);
  34.         ref(MacEvent) theEvent;
  35.         ref(MACWindow) theWindow;
  36.             EventMgr.ToolboxSystemClick(theEvent.what, theWindow.WindowPtr);
  37.  
  38. %    PROCEDURE SystemTask;
  39.     PROCEDURE SystemTask;
  40.         EventMgr.ToolboxSystemTask;
  41. % ------------------------------------------
  42.  
  43. ! Return reference to the process controlling the Active window. ;
  44.     ref(macProcess) procedure CurrentProcess;
  45.     begin
  46.         currentprocess:- if ActivePN=/=None then ActivePN.P
  47.             else none;
  48.     end;
  49.     
  50. ! Register a Process as controlling  a Window ;
  51.     procedure RegisterProcess(P,W); ref(MacProcess) P; ref(MacWindow) W;
  52.     begin
  53.         ActivePN:-new ProcessNotice(P,W);
  54.         P.Util:-Util;
  55.         P.TConst:-TConst;
  56.         SelectWindow(ActivePN.W);
  57.         call(ActivePN.P); ! -- run initialization code of Process, ;
  58.                           ! -- up to first getnextEvent. ;
  59.         ActivePN.into(EventWaitQ);    
  60.     end--- Controlling Window ---;
  61.     
  62. ! register a Process as controlling the Menu bar;    
  63.     procedure RegisterMenuProcess(p); ref(MacProcess) P;
  64.     begin
  65.         MenuController:-P;
  66.         P.Util:-Util;
  67.         P.TConst:-TConst;
  68.         call(MenuController); ! perform inital actions ;
  69.     end;
  70.  
  71. ! register a Process as controlling the System Window;    
  72.     procedure RegisterSystemProcess(p); ref(MacProcess) P;
  73.     begin
  74.         SystemController:-P;
  75.         P.Util:-Util;
  76.         P.TConst:-TConst;
  77.         call(SystemController); ! perform inital actions;
  78.     end;
  79.  
  80. ! remove a process from the system ;
  81.     procedure Kill(toKill); ref(macProcess) toKill;
  82.     begin
  83.         ref(processNotice) PN;
  84.         PN:-convertPtoPN(toKill);
  85.         PN.out;
  86.     end -- kill -- ;
  87.     
  88. ! Make 'RUN' Terminate next time somebody leaves control ;    
  89.     Procedure Stop;
  90.         Terminate:=true;
  91.  
  92. ! - Get events and dispatch to controler of 'hit' window. -    ;    
  93.     Procedure Run;
  94.     begin
  95.         Boolean Gotten_an_Event,Inside;
  96.         integer code; ! Hit region encoding ;
  97.         integer v_h,height,width;
  98.         ref(MacPoint) ThePoint;
  99.         ref(MacEvent) TheEvent;
  100.         ref(MacWindow) TheWindow;
  101.         ref(ProcessNotice) PN;
  102.         ref(macRect) ScreenBounds;
  103.         Terminate:=false;
  104.         TheEvent:- new MacEvent;
  105.         ThePoint:- new MacPoint;
  106.         ScreenBounds:-new MACrect;
  107.         getScreenRect(ScreenBounds);
  108.         while not Terminate do
  109.         begin
  110.             Gotten_an_Event:=EventMgr.getnextEvent(-1,theEvent); ! all events ;
  111.             if Gotten_an_Event then
  112.             begin
  113.                 if theEvent.what=TConst.mousedown then
  114.                 begin
  115.                     thePoint.v:=theEvent.point_v;
  116.                     thePoint.h:=theEvent.point_h;
  117.                     code:=FindWindow(thePoint,theWindow);
  118.                     if code =Tconst.inSysWindow then
  119.                     begin
  120.                         if systemController=/=none and then
  121.                             util.bitand(Util.BitShift(1,theEvent.what) ,
  122.                                 systemController.CurrentMask )<>0 then
  123.                         begin
  124.                             SystemController.CurrentEvent:-theEvent;
  125.                             Call(SystemController);
  126.                         end
  127.                         else
  128.                         begin
  129.                             Systemclick(TheEvent,TheWindow);
  130.                         end -- system - click -- ;
  131.                     end -- in sys Window --
  132.                     else if code =Tconst.inMenuBar then
  133.                     begin
  134.                         if MenuController =/= none and then 
  135.                             util.bitand(Util.BitShift(1,theEvent.what) ,
  136.                             Menucontroller.CurrentMask )<>0 then
  137.                         begin
  138.                             MenuController.CurrentEvent:-theEvent;
  139.                             MenuController.Currentfindresult:=code;
  140.                             Call(MenuController);
  141.                         end;
  142.                     end - in menu bar -
  143.                     else
  144.                     begin ! -- mouse down in user window --;
  145.                         PN:-ConvertToPN(theWindow);        
  146.                         if PN==none then
  147.                             ! Ignore event for some unknown Window ;
  148.                         else if PN=/=ActivePN then
  149.                         begin
  150.                             ActivePN:-PN;                ! - Notice of current Window.;
  151.                             SelectWindow(PN.W);     ! - First hit just selects - ;
  152.                             if Code=Tconst.inDrag then ! - and possily drags ! ;
  153.                                 PN.W.DragWindow(thePoint,ScreenBounds);
  154.                         end -- first mused-down activates -
  155.                         else if Code=Tconst.inDrag then
  156.                             PN.W.DragWindow(thePoint,ScreenBounds)
  157.                         else if Code=Tconst.inGrow then
  158.                         begin
  159.                             v_h:=PN.W.GrowWindow(thePoint,ScreenBounds);
  160.                             height:=util.hiword(v_h);width:=util.loword(v_h);
  161.                             PN.P.doSize(width,height);
  162.                         end -- User Window re-size --
  163.                         else if Code=Tconst.ingoAway then
  164.                         begin
  165.                             inside:=PN.W.TrackGoAway(thePoint);
  166.                             if inside then PN.P.doGoAway;
  167.                         end -- User Window go-away --
  168.                         else if Util.bitand(Util.BitShift(1,theEvent.what) ,
  169.                                 PN.P.CurrentMask  )<>0 then
  170.                             PN.into(ReadyQ) ! MouseDown event for user Window ;
  171.                         else
  172.                         ! Discard Disabled Mouse down Event ; ;
  173.                     end -- Muse down in user Window -- ;
  174.                 end -- Mouse-down Event --
  175.                 else if theEvent.what=TConst.keyDown and  then
  176.                     util.bitAnd(theEvent.modifiers,TConst.cmdKey)<>0 then
  177.                 begin
  178.                     MenuController.CurrentEvent:-theEvent;
  179.                     MenuController.Currentfindresult:=code;
  180.                     Call(MenuController);
  181.                     !!! if no hit then ...;
  182.                 end - Meta key -                     
  183.                 else if theEvent.what=TConst.updateEvt or else
  184.                     theEvent.what=TConst.ActivateEvt then
  185.                 begin
  186.                     theWindow:-ConvertToWindow(theEvent.Message);
  187.                     PN:-ConvertToPN(theWindow);        
  188.                     if PN==none then
  189.                     begin
  190.                         ! Ignore event for some unknown Window ;
  191.                     end
  192.                     else if Util.bitand(Util.BitShift(1,theEvent.what) ,
  193.                         PN.P.CurrentMask  )<>0 then
  194.                     begin
  195.                         PN.W.Setport; ! Temporarily make updated Window ;
  196.                                       ! the port for Quickdraw ;
  197.                         PN.P.CurrentEvent:-theEvent;
  198.                         PN.P.CurrentFindResult:=Code;
  199.                         PN.W qua macQuickdraw.TRAP
  200.                             .ToolboxGlobaltoLocal(theEvent.point_v);
  201.                         Call(PN.P);
  202.                         if PN.P.Terminate then
  203.                             PN.out;
  204.                         FrontWindow.Setport; ! revert to Active Window ;
  205.                     end;
  206.                 end -- Upate/Activate event --
  207.                 else
  208.                 Begin ! --- all other events go to Previous window ;
  209.                      if ActivePN=/=none and then
  210.                         Util.bitand(Util.BitShift(1,theEvent.what) ,
  211.                         ActivePN.P.CurrentMask  )<>0 then
  212.                         ActivePN.into(ReadyQ);
  213.                 End - other event for Old Window -;
  214.             end - gotten an event --
  215.             else
  216.             begin ! -- send NULL event to active process if enabled -- ;
  217.                 if ActivePN=/=none and then
  218.                     Util.bitand(Util.BitShift(1,Tconst.NullEvent) ,
  219.                     ActivePN.P.CurrentMask  )<>0 then
  220.                 begin
  221.                     ActivePN.into(ReadyQ);
  222.                     theEvent.what:=Tconst.NullEvent;
  223.                 end;
  224.             end - null event -- ;
  225.             while not readyQ.Empty do ! currently at most one in ReadyQ;
  226.             begin
  227.                 PN:-ReadyQ.first;
  228.                 PN.out;
  229.                 PN.P.CurrentEvent:-theEvent;
  230.                 PN.P.CurrentFindResult:=Code;
  231.                 PN.W qua macQuickdraw.TRAP
  232.                     .ToolboxGlobaltoLocal(theEvent.point_v);
  233.                 Call(PN.P);
  234.                 if not PN.P.Terminate then
  235.                     PN.into(EventWaitQ);
  236.             end - run the process of known window - ;
  237.         end - while - ;
  238.     end --- Run --- ;
  239.     
  240.     ! -------------- Local routines ------------ ;
  241.     Link class ProcessNotice(P,W); ref(MacProcess) p; ref(MacWindow) W;;
  242.     
  243.     ref(Head) ReadyQ,EventWaitQ;
  244.     ref(MacProcess) MenuController, SystemController;
  245.     ref(ProcessNotice) ActivePN;
  246.     
  247.     ref(ProcessNotice) procedure ConvertToPN(aWindow);
  248.         ref(MACWindow) aWindow;
  249.     begin
  250.         ref(ProcessNotice) pPN;
  251.         pPN:-EventWaitQ.first;
  252.         while pPN=/=none and then pPN.W=/=aWindow do
  253.             pPN:-pPN.suc;
  254.         ConvertToPn:-pPN;
  255.     end -- ConvertToPN --;
  256.     
  257.     ref(ProcessNotice) procedure ConvertPToPN(aP);
  258.         ref(MACprocess) aP;
  259.     begin
  260.         ref(ProcessNotice) pPN;
  261.         pPN:-EventWaitQ.first;
  262.         while pPN=/=none and then pPN.P=/=aP do
  263.             pPN:-pPN.suc;
  264.         ConvertPToPn:-pPN;
  265.     end -- ConvertToPN --;
  266.     
  267.     ReadyQ :- new Head;
  268.     EventWaitQ:- new Head;
  269.     EventMgr:-new MacEventMgr;
  270.     TConst:-new macToolConst;
  271.     Util:- new macUtilities;
  272.     SystemController:-none; ! :- new DefaultSystemController;
  273. end --- Process MGR --- ;
  274.